home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESWIND1.S < prev    next >
Text File  |  1993-03-10  |  2KB  |  71 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST GEM bindings.
  5. ;*
  6. ;*    Maintenance:
  7. ;*     02/10/89 v1.10: Added new function, 'wind_new', available only in
  8. ;*              TOS 1.4.
  9. ;*========================================================================
  10.  
  11.  
  12. ;*************************************************************************
  13. ;*
  14. ;* Window manager routines 1 of 2.
  15. ;*
  16. ;*************************************************************************
  17.  
  18. ;-------------------------------------------------------------------------
  19. ; wind_create
  20. ; wind_open
  21. ; wind_close
  22. ; wind_delete
  23. ; wind_set
  24. ; wind_find
  25. ; wind_update
  26. ; wind_new          |v1.10: added
  27. ;-------------------------------------------------------------------------
  28.  
  29.           globl     _wind_create
  30. _wind_create:
  31.           move.l    #$64050100,d0       ; AControl  100,5,1,0
  32.           bra.b     wind_do
  33.           globl     _wind_open
  34. _wind_open:
  35.           move.l    #$65050100,d0       ; AControl  101,5,1,0
  36.           bra.b     wind_do
  37.           globl     _wind_close
  38. _wind_close:
  39.           move.l    #$66010100,d0       ; AControl  102,1,1,0
  40.           bra.b     wind_do
  41.           globl     _wind_delete
  42. _wind_delete:
  43.           move.l    #$67010100,d0       ; AControl  103,1,1,0
  44.           bra.b     wind_do
  45.           globl     _wind_set
  46. _wind_set:
  47.           move.l    #$69060100,d0       ; AControl  105,6,1,0
  48.           bra.b     wind_do
  49.           globl     _wind_find
  50. _wind_find:
  51.           move.l    #$6A020100,d0       ; AControl  106,2,1,0
  52.           bra.b     wind_do
  53.           globl     _wind_update
  54. _wind_update:
  55.           move.l    #$6B010100,d0       ; AControl  107,1,1,0
  56.           bra.b     wind_do
  57.           globl     _wind_new
  58. _wind_new:
  59.           move.l    #$6D000000,d0       ; AControl  109,0,0,0           ; |1.10: added
  60. wind_do:
  61. ;          .cargs    #4,intin
  62.  
  63. intin            =    4
  64.  
  65.           lea        intin(sp),a1
  66.           jmp        aes_do
  67.  
  68.  
  69. ;          end of code
  70.  
  71.